Private Sub cmdNew_Click()
lstNames.Visible = False
txtSearch.Text = ""
End Sub

Private Sub cmdQuit_Click()
Me.Close
End Sub

Private Sub cmdSearch_Click()
If optLastName Then
    ADODC1.RecordSource = _
      "Select addressid, LastName, firstname, firstname & "" _
      "" & Lastname as fullname from [address entry] where lastname like '" _
      & txtSearch.Text & "*'"
ElseIf optFirstname Then
    ADODC1.RecordSource = _
      "Select addressid, LastName, firstname, firstname & "" _
      "" & Lastname as fullname from [address entry] where firstname  like '" _
      & txtSearch.Text & "*'"
End If
ADODC1.Requery
lstNames.Refresh
lstNames.Visible = True
End Sub

Private Sub Form_Load()
txtSearch.Text = ""
End Sub

Private Sub lstNames_DblClick()
ADODC1.RecordSet.Find "fullname = '" & _
         lstNames.BoundText & "'", adSearchForward
frmAddressEntry.sqlEntry = _
         "select * from [Address Entry] Where [AddressID] = " _
  & Data1.Recordset.Fields("addressid")
frmAddressEntry.Show

End Sub
